home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
Bible
/
BIBLE11.ARC
/
SEQ READ 64
/
128
(
.txt
)
Wrap
Commodore BASIC
|
2019-04-13
|
4KB
|
136 lines
10 PRINT"[147]";:POKE53280,0:POKE53281,0:DIMP$(145):S=0:PR=0:GOTO80
12 CLOSE15:OPEN15,8,15,"U;":PRINT#15,"I0":INPUT#15,EN$,EM$,TK$,SR$:CLOSE15
14 IFEN$<>"00"THENGOSUB262:GOTO12
16 RETURN
18 GOSUB12
20 P=1:CLOSE2:OPEN2,8,0,"$0:*=S":FOR I=1TO34:GET#2,B$:IF B$=""THENB$=CHR$(0)
21 NEXTI
22 P$(P)="":GET#2,B$,B$
24 GET#2,B$:IFSTTHEN46
26 IFB$<>CHR$(34)THEN24
28 GET#2,B$:IFB$=""THENB$=CHR$(0)
30 B=ASC(B$):IFB<32THENB$=CHR$(63)
32 IFB>127THENIFB<160THENB$=CHR$(63)
34 IFB=34THEN38
36 P$(P)=P$(P)+CHR$(B):GOTO28
38 GET#2,B$:IFB$=CHR$(32)THEN38
40 GET#2,B$:IFB$<>""THEN40
42 IFLEN(P$(P))>0THENP=P+1
44 GOTO22
46 CLOSE2:P=P-1
48 IFP<1THEN70
50 H=1:I=1:J=16:IFJ>PTHENJ=P
52 PRINT"[159]":K=H:FORL=ITOJ:IFL=1THENM=K
54 IFL=2THENPRINT
56 PRINT""LEFT$(P$(K)+BL$,16)"
58 K[178]K[170]1:[139]K[177]P[167]K[178]1
60 [130]:[142]
62 H[178]H[170]1:[139]H[177]P[167]H[178]1
64 [141]52:[142]
66 H[178]H[171]1:[139]H[179]1[167]H[178]P
68 [137]64
70 [153]"OPEN"[166]242)"NO FILES ON DISK"
72 [153]:[153]"PRESS RETURN TO
74 PRINT"CONTINUE.":GOSUB258
76 GETV$:IFV$<>CHR$(13)THEN76
78 PRINT"[147]";:S=0:GOTO80
80 LF=54272:HF=LF+1:WF=LF+4:VL=LF+24:FORMU=LFTOVL:POKEMU,0:NEXT:TP=0:TC=1
82 POKELF+5,64:POKELF+6,128:POKEVL,15:BL$=" "
84 IFS=0THENS=1:GOSUB210
86 GOSUB18
88 GOSUB258
90 GETV$:GETV$:GETV$
92 GETV$:IFV$=""THEN92
94 IFV$=CHR$(13)THEN134
96 IFV$="1"THENGOSUB110:GOTO90
98 IFV$="3"THENGOSUB122:GOTO90
100 IFV$="5"THENRUN
102 IFV$="7"THENEND
104 IFV$=CHR$(17)ORV$=CHR$(29)THENGOSUB62:GOTO90
106 IFV$=CHR$(145)ORV$=CHR$(157)THENGOSUB66:GOTO90
108 GOTO90
110 IFTP=0THENTP=1:GOTO114
112 TP=0
114 PRINT"[154]"TAB(240)TAB(240)TAB(194);
116 IFTP=0THENPRINT"OFF"
118 IFTP=1THENPRINT" ON"
120 RETURN
122 IFTC=0THENTC=1:GOTO126
124 TC=0
126 PRINT"[154]"TAB(240)TAB(240)TAB(232);
128 IFTC=0THENPRINTCHR$(142)"UPPER"
130 IFTC=1THENPRINTCHR$(14)"LOWER"
132 RETURN
134 PRINT"[147]":POKE53280,6:POKE53281,3
136 IFTP=0ORTP=1ANDPR=1THEN144
138 PRINTSPC(47)"[144]PLEASE TURN ON YOUR PRINTER."
140 PRINTSPC(50)"THEN PRESS RETURN.":PR=1:GOSUB258
142 GETV$:IFV$<>CHR$(13)THEN142
144 IFTC=0THENIFTP=1THENOPEN4,4:R=PEEK(144)
146 IFTC=1THENIFTP=1THENOPEN4,4,7:R=PEEK(144)
148 IFR<>0THENPR=0:GOTO134
150 PRINT:PRINTSPC(1)"[149][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
152 PRINT"[221] PRESS SPACEBAR TO TOGGLE PAUSE. [221]"
154 PRINT"[221] PRESS 1 TO ABORT LISTING. [221]"
156 PRINT"[221] PRESS 3 TO INCREASE LISTING SPEED. [221]"
158 PRINT"[221] PRESS 5 TO REDUCE LISTING SPEED. [221]"
160 PRINT"[221] [221]"
162 PRINT"[221] PRESS SPACEBAR TO START. [221]"
164 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB258
166 GETV$:IFV$<>CHR$(32)THEN166
168 CLOSE2:OPEN2,8,2,P$(M)+",S,R"
170 IFSTTHEN186
172 GET#2,W$:PRINTW$;:IFTP=1THENPRINT#4,W$;
174 GETV$:IFV$="1"THEN186
176 IFV$="3"THENDE=DE-10:IFDE<1THENDE=1
178 IFV$="5"THENDE=DE+10:IFDE>1000THENDE=1000
180 IFV$=CHR$(32)THENGOSUB204
182 FORT=1TODE:NEXT
184 GOTO170
186 CLOSE2:IFPR=1THENPRINT#4
188 CLOSE4
190 PRINTCHR$(14)SPC(44)"END OF FILE....."
192 PRINTSPC(84)"PRESS RETURN TO CONTINUE.":GOSUB258
194 GETV$:IFV$<>CHR$(13)THEN194
196 PRINT"[147]";:POKE53280,0:POKE53281,0:GOSUB210:GOSUB64:GOTO88
198 GOSUB258
200 GETV$:IFV$<>CHR$(32)THEN200
202 RETURN
204 GOSUB258
206 GETV$:IFV$<>CHR$(32)THEN206
208 RETURN
210 POKE53265,PEEK(53265)AND239:PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
212 [153]" (null) SEQUENTIAL FILE READER (null)"
214 [153]" (null) 64/128 VERSION (null)"
216 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
218 [153]" ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
220 [153]" (null) (null)WAITSYS <<< LOAD ME <<<OPEN"
222 [153]" -TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<"
224 [153]" (null) (null)DEFORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
226 [153]" (null) (null)DEF(null) 1 TOGL PRINTER (null)OPEN"
228 [153]" (null) (null)DEF(null) 3 TOGL CHR SET (null)OPEN"
230 [153]" (null) (null)DEF(null) 5 GET NEW DISK (null)OPEN"
232 [153]" (null) (null)DEF(null) 7 QUIT PROGRAM (null)OPEN"
234 [153]" (null) (null)DEF/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPOPEN"
236 [153]" (null) (null)"
238 [153]" (null) (null)CONTORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^OPEN"
240 [153]" (null) (null)CONT(null) PRINTER OFF (null)OPEN"
242 [153]" (null) (null)CONT(null) CHARSET LOWER (null)OPEN"
244 [153]" (null) (null)CONT-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<OPEN"
246 [153]" (null) (null)CONT(null)USE CURSOR KEYS (null)OPEN"
248 [153]" (null) (null)CONT(null)TO SCROLL LIST. (null)OPEN"
250 [153]" (null) (null)CONT(null)PRESS RETURN TO (null)OPEN"
252 [153]" (null) (null)CONT(null)READ TOP FILE. (null)OPEN"
254 [153]" /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPCONT/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP":[151]53265,[194](53265)[176]16
256 TP[178]0:PR[178]0:[142]
258 [129]MU[178]1[164]2:[151]LF,30:[151]HF,134:[151]WF,17:[129]T[178]1[164]200:[130]
260 [151]WF,16:[151]LF,0:[151]HF,0:[129]T[178]1[164]20:[130]:[130]:[161]V$:[161]V$:[161]V$:[142]
262 [153]"LOADPOKE":[151]53280,2:[151]53281,15
264 [153][163]208)"DRIVE ERROR : "EN$
266 [153][163]8)"ERROR MESSAGE: "EM$
268 [153][163]8)"TRACK : "TK$
270 [153][163]8)"SECTOR : "SR$
272 [153][163]168)"PRESS RETURN TO CONTINUE":[161]V$:[161]V$:[161]V$:[141]258
274 [161]V$:[139]V$[179][177][199](13)[167]274
276 [151]53280,0:[151]53281,0:[153]"LOAD";:[141]210:[142]